REQUIRE "EXPRS.REL[AL,HE]" LOAD_MODULE;
EXTERNAL RPTR(LBLVAR) PROCEDURE NEW_LBL(STRING NAME; INTEGER DT; RBLK BID);
EXTERNAL RANY PROCEDURE ASGLBL(RPTR(LBLVAR) L;RPTR(ANY_CLASS) SEM);
EXTERNAL RVAR PROCEDURE NEW_VAR(STRING NAME; INTEGER DT; RBLK BID);
EXTERNAL RPTR(VNODE) RECURSIVE PROCEDURE INVALIDATE(RVAR VAR; RTHREAD WLD);
EXTERNAL RPTR(VALU$) PROCEDURE GETVALUE (RVAR VAR;
						RTHREAD WLD; BOOLEAN OK(FALSE));
EXTERNAL RECURSIVE RVAR PROCEDURE ARRAYREF(REXPR E; RTHREAD WLD);
EXTERNAL INTEGER SIMPLE PROCEDURE DTYPE(INTEGER DT);
EXTERNAL RPTR(VALU$) PROCEDURE VTCHECK(RPTR(VARIABLE) VAR;RPTR(VALU$) VAL);
EXTERNAL RECURSIVE PROCEDURE VCHANGE(RPTR(VARIABLE,EXPRN) VAR;
					RPTR(VALU$) NEWV; RTHREAD WLD);
EXTERNAL PROCEDURE DCHANGE(RPTR(VARIABLE,EXPRN) VAR; 
					RPTR(VALU$) NEWV; RTHREAD WLD);
EXTERNAL RECURSIVE BOOLEAN PROCEDURE EXPEQV(RPTR(EXPRN,VALU$,VARIABLE) E1,E2);
EXTERNAL REXPR RECPROC INVSIMP(REXPR E);
EXTERNAL RPTR(VALU$) RECPROC EVALEXPR(RPTR(EXPRN,VARIABLE,VALU$) E; RTHREAD WLD);
EXTERNAL PROCEDURE KILLVAR(RTHREAD WLD; RVAR VAR);